home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Prodata v1.18.adf
/
PAINTJET.PPD
< prev
next >
Wrap
Text File
|
1990-11-08
|
4KB
|
193 lines
rem HP Paintjet (using PC-8 character set)
cc '@'=27,"E",27,"&k0G",27,"(10U",27,"(s1Q"
cc 'b'=27,"(s3B" ; 27,"(s0B"
cc 'i'=27,"(s1S" ; 27,"(s0S"
cc 'q'=27,"(s2Q" ; 27,"(s1Q"
cc 's'=27,"&a+0.25R",27,"(s6V" ; 27,"&a-0.25R",27,"(s12V" ;; subscript
cc 't'=27,"&a-0.25R",27,"(s6V" ; 27,"&a+0.25R",27,"(s12V" ;; superscript
cc 'u'=27,"&d0D" ; 27,"&d@"
rem colours - use ctrlcode twice to return to black
cc 'r'=27,"&v1S" ; 27,"&v0S" ;; red
cc 'g'=27,"&v2S" ; 27,"&v0S" ;; green
cc 'm'=27,"&v5S" ; 27,"&v0S" ;; magenta
cc 'y'=27,"&v3S" ; 27,"&v0S" ;; yellow
cc 'a'=27,"&v6S" ; 27,"&v0S" ;; cyan
cc 'd'=27,"&v4S" ; 27,"&v0S" ;; dark blue
rem Character redefinitions using PC-8 Symbol set
rc ''=27,"&p1X",2
rc ''=27,"&p1X",3
rc ''=27,"&p1X",4
rc ''=27,"&p1X",5
rc ''=27,"&p1X",6
rc ''=27,"&p1X",11
rc 12=13,12 ;; form feed
rc ''=27,"&p1X",14
rc ''=27,"&p1X",15
rc ''=27,"&p1X",16
rc ''=27,"&p1X",17
rc ''=27,"&p1X",18
rc ''=27,"&p1X",19
rc '¶'=27,"&p1X",20
rc '§'=27,"&p1X",21
rc ''=27,"&p1X",22
rc ''=27,"&p1X",23
rc ''=27,"&p1X",24
rc ''=27,"&p1X",25
rc ''=27,"&p1X",26
rc ''=27,"&p1X",27
rc ''=27,"&p1X",28
rc ''=27,"&p1X",29
rc ''=27,"&p1X",30
rc ''=27,"&p1X",31
rem accented chars defined so as not to be split into letter and accent
rc 'Ç'=128
rc 'ü'=129
rc 'é'=130
rc 'â'=131
rc 'ä'=132
rc 'à'=133
rc 'å'=134
rc 'ç'=135
rc 'ê'=136
rc 'ë'=137
rc 'è'=138
rc 'ï'=139
rc 'î'=140
rc 'ì'=141
rc 'Ä'=142
rc 'Å'=143
rc 'É'=144
rc 'æ'=145
rc 'Æ'=146
rc 'ô'=147
rc 'ö'=148
rc 'ò'=149
rc 'û'=150
rc 'ù'=151
rc 'ÿ'=152
rc 'Ö'=153
rc 'Ü'=154
rc 'ø'=27,"(8U",214,27,"(10U" ;; o slash
rc '£'=156
rc 'Ø'=27,"(8U",210,27,"(10U" ;; O slash
IF PC
rc ''=158
ENDIF
IF ST
rc 158=27,"(8U",222,27,"(10U" ;; double s
ENDIF
rc 'á'=160
rc 'í'=161
rc 'ó'=162
rc 'ú'=163
rc 'ñ'=164
rc 'Ñ'=165
rc 'ß'=27,"(8U",222,27,"(10U"
rc '»'=27,"(10U",175
IF ANSI
rc ''=218
rc ''=191
rc ''=192
rc ''=217
rc ''=196
rc ''=179
rc ''=194
rc ''=193
rc ''=197
rc ''=195
rc ''=180
rc 'ª'=166
rc 'º'=167
rc '¿'=168
rc '¬'=170
rc '½'=171
rc '¼'=172
rc '¡'=173
rc '«'=174
rc 'µ'=230
rc '±'=241
rc '÷'=246
rc '°'=248
rc '·'=250
rc 'Þ'=253
rc 164=27,"(0N",164,27,"(10U" ;; curr. sym.
rc 165=27,"(0N",165,27,"(10U" ;; yen
rc 166=27,"(0N",166,27,"(10U" ;; vert
rc 169=27,"(0N",169,27,"(10U" ;; copyright
rc 174=27,"(0N",174,27,"(10U" ;; registered
rc 175=27,"(0N",175,27,"(10U" ;; overline
rc 179=27,"(0N",179,27,"(10U" ;; super 3
rc 190=27,"(0N",190,27,"(10U" ;; 3/4
rc 215=27,"(0N",215,27,"(10U" ;; multiply
ENDIF
IF VER5
acute ; 27,"&f0S",27,"(8U",8,168,27,"(10U",27,"&f1S"
grave ; 27,"&f0S",27,"(8U",8,169,27,"(10U",27,"&f1S"
circumflex ; 27,"&f0S",27,"(8U",8,170,27,"(10U",27,"&f1S"
umlaut ; 27,"&f0S",27,"(8U",8,171,27,"(10U",27,"&f1S"
tilde ; 27,"&f0S",27,"(8U",8,172,27,"(10U",27,"&f1S"
macron ; 27,"&f0S",27,"(8U",8,176,27,"(10U",27,"&f1S"
ascend 27,"*p-5Y" ; 27,"*p+5Y"
ENDIF
hl 27,"="
IF VER5
mm 5
mf 1
pp on
ms on
ff on
double ;; no auto doubling
regular ibuclsturgmyad
group en
end 27,"E"
omit p
menu
"Red:^XR" R
"Green:^XG" G
"Cyan:^XA" A
"Magenta:^XM" M
"Dark blue:^XD" D
"Yellow:^XY" Y
menuend
ELSE
mm 5
mf 1
ff on
cw 72
cc 'c'=27,"(s20H" ; 27,"(s10H"
cc 'e'=27,"(s16.67H" ; 27,"(s10H"
cc 'l'=27,"(s5H" ; 27,"(s10H"
cc 'p'=27,"(s1P" ; 27,"(s0P"
ENDIF
rem all widths in units of 1/720"
IF VER5
rules c=2,e=1,n=0
font 0 ; Courier 10 cpi
enter 27,"(s0p10h3T"27,"&k12H"
cw 72
font 1 ; "elite", 12 cpi
enter 27,"(s0p12h3T",27,"&k10H"
cw 60
font 2 ; "condensed", 18 cpi
enter 27,"(s0p18h12v3T"27,"&k6.6667H"
cw 40
ENDIF